From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Mar 1993 02:26:42 +0000 (+0000)
Subject: (query-replace-map): Define backspace like delete.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96733
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9275e5e3e9c7282ab961784117ec319d67badb39;p=emacs.git

(query-replace-map): Define backspace like delete.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 449d5243ee3..62d80278589 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -376,6 +376,7 @@ The valid answers include `act', `skip', `act-and-show',
 (define-key query-replace-map " " 'act)
 (define-key query-replace-map "\d" 'skip)
 (define-key query-replace-map [delete] 'skip)
+(define-key query-replace-map [backspace] 'skip)
 (define-key query-replace-map "y" 'act)
 (define-key query-replace-map "n" 'skip)
 (define-key query-replace-map "," 'act-and-show)
@@ -474,7 +475,8 @@ which will run faster and do exactly what you probably want."
 	  (while (not done)
 	    (message "Query replacing %s with %s: "
 		     from-string next-replacement)
-	    (setq key (vector (read-event)))
+	    (setq key (read-event))
+	    (setq key (vector key))
 	    (setq def (lookup-key map key))
 	    ;; Restore the match data while we process the command.
 	    (store-match-data real-match-data)